home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / bm12 / about.frm next >
Text File  |  1995-05-27  |  2KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form About 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   1215
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4095
  8.    ControlBox      =   0   'False
  9.    Height          =   1620
  10.    Left            =   1035
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1215
  15.    ScaleWidth      =   4095
  16.    Top             =   1140
  17.    Width           =   4215
  18.    Begin Label Label3 
  19.       BackStyle       =   0  'Transparent
  20.       Height          =   1335
  21.       Left            =   0
  22.       TabIndex        =   3
  23.       Top             =   0
  24.       Width           =   4095
  25.    End
  26.    Begin Label Label1 
  27.       BackStyle       =   0  'Transparent
  28.       Caption         =   "CompuServe 100552,1570"
  29.       Height          =   255
  30.       Index           =   2
  31.       Left            =   240
  32.       TabIndex        =   2
  33.       Top             =   840
  34.       Width           =   2415
  35.    End
  36.    Begin Label Label1 
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "Copyright ⌐ 1995 Christian Naumann."
  39.       Height          =   255
  40.       Index           =   1
  41.       Left            =   240
  42.       TabIndex        =   1
  43.       Top             =   600
  44.       Width           =   3255
  45.    End
  46.    Begin Label Label1 
  47.       BackStyle       =   0  'Transparent
  48.       Caption         =   "ButtonMaker/VB Sample App Version 1.00"
  49.       Height          =   255
  50.       Index           =   0
  51.       Left            =   240
  52.       TabIndex        =   0
  53.       Top             =   240
  54.       Width           =   3855
  55.    End
  56. End
  57. Option Explicit
  58.  
  59. Sub Form_Load ()
  60.   'Center form on the screen
  61.   Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  62. End Sub
  63.  
  64. Sub Label3_Click ()
  65.   Unload Me
  66. End Sub
  67.  
  68.